home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ ShellIcon Cleanup 1.xpl < prev    next >
Text File  |  2001-04-04  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Icons\Icon Options"
  5. "NAME"="Reset Icon Customizations"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Reset ALL shell icon customizations"
  8. "TEXT 2"="Clean up unnecessary shell icon entries"
  9. "DESCRIPTION 1"="If you have changed any shelled Windows icons, and made a mess of things, you can use this plug-in to remove all changes."
  10. "DESCRIPTION 2"="Please be aware that ALL shell icon changes will be lost when you click on the button!"
  11. "DESCRIPTION 3"="Alternatively, you can click on the second button to only remove unnecessary entries - this won't change any customized icons but will get rid of references to 'uncustomized' icons."
  12. "DESCRIPTION 4"="NOTE: Some settings may not take effect until you restart the computer."
  13. "COMMENT 1"=""
  14. "VERSION"="1.3"
  15. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "CONTACTURL"="http://www.neilrt.cwc.net/"
  18.  
  19. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons\"
  20.  
  21. SUB Plugin_Initialize
  22. END SUB
  23.  
  24. SUB Plugin_CheckData
  25. ' X-Setup 5.x compatibility
  26. END SUB
  27.  
  28. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  h=0
  30.  w=GetWinSysDir
  31.  if ElementIndex=1 then
  32.   iCount=RegEnumValues(sP)
  33.   For l=1 to iCount
  34.    s=RegEnumElement(l)
  35.    v=RegReadValue(sP & s)
  36.    If IsEmpty(v)=false then
  37.     Call RegDeleteValue(sP & S)
  38.     h=h+1
  39.    end if
  40.   Next 
  41.   Call MsgInformation("X-Setup has removed " & h & " shell icon customizations.")
  42.  else
  43.   iCount=RegEnumValues(sP)
  44.   For l=1 to iCount
  45.    s=RegEnumElement(l)
  46.    v=RegReadValue(sP & s)
  47.    If v=w & "shell32.dll," & s then
  48.     Call RegDeleteValue(sP & S)
  49.     h=h + 1
  50.    end if
  51.   Next 
  52.   Call MsgInformation("X-Setup has removed " & h & " shell icon customizations.")
  53.  end if
  54. END SUB
  55.  
  56. SUB Plugin_Terminate
  57. END SUB
  58.